home *** CD-ROM | disk | FTP | other *** search
/ Amiga News 96 / Amiga News 96.iso / amig_ad_os / avm / prog / source / playddnumber.avmsrc < prev    next >
Text File  |  1977-12-31  |  2KB  |  92 lines
  1. startrecord=true
  2. label=playddnumber
  3. nodetype=14
  4. comment=We're going to play a double digit number
  5. nextactiontype=3
  6. nextactionaction=
  7. endrecord=true
  8. startrecord=true
  9. label=
  10. nodetype=8
  11. line1=procedure
  12. line2=
  13. line3=parse arg number
  14. line4=directdd = getclip('AVMDirectDDNumber')
  15. line5=if upper(directdd) = 'YES' then signal playdirectdd
  16. line6=
  17. line7=
  18. line8=
  19. line9=
  20. line10=
  21. nextactiontype=3
  22. nextactionaction=
  23. endrecord=true
  24. startrecord=true
  25. label=
  26. nodetype=8
  27. line1=if number > 9 & number < 20 then
  28. line2=  call playANumber(number)
  29. line3=else if number >= 20 & number < 60 then do
  30. line4=  units = number // 10
  31. line5=  tens = number - units
  32. line6=  call playANumber(tens)
  33. line7=  if units > 0 then call playnumber(units)
  34. line8=end; else
  35. line9=  call playnumber(number+0)
  36. line10=
  37. nextactiontype=2
  38. nextactionaction=return
  39. endrecord=true
  40. startrecord=true
  41. label=playdirectdd
  42. nodetype=8
  43. line1=if number < 10 then call playnumber(number+0)
  44. line2=else call playANumber(number)
  45. line3=
  46. line4=
  47. line5=
  48. line6=
  49. line7=
  50. line8=
  51. line9=
  52. line10=
  53. nextactiontype=2
  54. nextactionaction=return
  55. endrecord=true
  56. startrecord=true
  57. label=playANumber
  58. nodetype=8
  59. line1=procedure
  60. line2=parse arg number
  61. line3=numToPlay = 'avm:voices/number' || number
  62. line4=
  63. line5=
  64. line6=
  65. line7=
  66. line8=
  67. line9=
  68. line10=
  69. nextactiontype=3
  70. nextactionaction=
  71. endrecord=true
  72. startrecord=true
  73. label=
  74. nodetype=1
  75. filename=numToPlay
  76. comment=
  77. keyactiontype=3
  78. keyactionaction=
  79. faxactiontype=0
  80. faxactionaction=stdfax
  81. dataactiontype=0
  82. dataactionaction=stddata
  83. busyactiontype=0
  84. busyactionaction=stdbusy
  85. abortactiontype=0
  86. abortactionaction=stdabort
  87. erroractiontype=0
  88. erroractionaction=stderror
  89. nextactiontype=2
  90. nextactionaction=return
  91. endrecord=true
  92.